﻿Public Class BEparafina

#Region "Declaración de variables"

    Inherits BEmuestras
    Private codParafina As Integer
    Private codTejido As Integer

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodParafina As Object, _
            ByVal pCodTejido As Object)

        Me._codParafina = pCodParafina
        Me._codTejido = pCodTejido

    End Sub

    Public Property _codParafina() As Integer
        Get
            Return Me.codParafina
        End Get
        Set(ByVal value As Integer)
            Me.codParafina = value
        End Set
    End Property

    Public Property _codTejido() As Integer
        Get
            Return Me.codTejido
        End Get
        Set(ByVal value As Integer)
            Me.codTejido = value
        End Set
    End Property

End Class
